home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / top.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  49.2 KB  |  2,393 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "top.h"
  4. init_top(){do_init(VV);}
  5. /*    local entry for function TOP-LEVEL    */
  6.  
  7. static object LI1()
  8.  
  9. {     VMB1 VMS1 VMV1
  10.     bds_check;
  11. TTL:;
  12.     bds_bind(VV[0],Cnil);
  13.     bds_bind(VV[1],Cnil);
  14.     bds_bind(VV[2],Cnil);
  15.     bds_bind(VV[3],Cnil);
  16.     bds_bind(VV[4],Cnil);
  17.     bds_bind(VV[5],Cnil);
  18.     bds_bind(VV[6],Cnil);
  19.     bds_bind(VV[7],Cnil);
  20.     bds_bind(VV[8],Cnil);
  21.     bds_bind(VV[9],Cnil);
  22.     setq(VV[10],Ct);
  23.     frs_push(FRS_CATCH,symbol_value(VV[11]));
  24.     if(nlj_active)
  25.     {nlj_active=FALSE;frs_pop();
  26.     vs_top=sup;
  27.     goto T3;}
  28.     else{
  29.     {register object V1;
  30.     base[10]= symbol_value(VV[12]);
  31.     base[11]= VV[13];
  32.     vs_top=(vs_base=base+10)+2;
  33.     (void) (*Lnk121)();
  34.     vs_top=sup;
  35.     V1= vs_base[0];
  36.     if(!((file_exists((V1))))){
  37.     goto T9;}
  38.     base[10]= (V1);
  39.     base[11]= VV[14];
  40.     base[12]= Cnil;
  41.     vs_top=(vs_base=base+10)+3;
  42.     (void) (*Lnk122)();
  43.     vs_top=sup;
  44. T9:;
  45.     if((symbol_value(VV[15]))==Cnil){
  46.     goto T17;}
  47.     setq(VV[15],Cnil);
  48.     goto T15;
  49. T17:;
  50.     if(!((file_exists(VV[16])))){
  51.     goto T15;}
  52.     base[10]= VV[17];
  53.     vs_top=(vs_base=base+10)+1;
  54.     (void) (*Lnk122)();
  55.     vs_top=sup;
  56. T15:;
  57. T24:;
  58.     V1= symbol_value(VV[18]);
  59.     {register object x= VV[19],V2= (V1);
  60.     while(!endp(V2))
  61.     if(equal(x,V2->c.c_car)){
  62.     V1= V2;
  63.     goto T31;
  64.     }else V2=V2->c.c_cdr;
  65.     V1= Cnil;}
  66. T31:;
  67.     if(((V1))==Cnil){
  68.     goto T28;}
  69.     base[10]= cadr((V1));
  70.     base[11]= VV[14];
  71.     base[12]= Cnil;
  72.     vs_top=(vs_base=base+10)+3;
  73.     (void) (*Lnk122)();
  74.     vs_top=sup;
  75.     V1= cddr((V1));
  76. T28:;
  77.     if((V1)!=Cnil){
  78.     goto T25;}
  79.     goto T5;
  80. T25:;
  81.     goto T24;}
  82. T5:;
  83.     base[10]= symbol_value(VV[20]);
  84.     vs_top=(vs_base=base+10)+1;
  85.     Lfunctionp();
  86.     vs_top=sup;
  87.     if((vs_base[0])!=Cnil){
  88.     goto T38;}
  89.     frs_pop();
  90.     goto T3;
  91. T38:;
  92.     V3= (
  93.     (type_of(symbol_value(VV[20])) == t_sfun ?(*(object (*)())((symbol_value(VV[20]))->sfn.sfn_self)):
  94.     (fcall.fun=(symbol_value(VV[20])),fcall.argd=0,fcalln))());
  95.     frs_pop();}
  96. T3:;
  97. T42:;
  98.     (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
  99.     (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
  100.     (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
  101.     if((symbol_value(VV[21]))==Cnil){
  102.     goto T52;}
  103.     setq(VV[21],Cnil);
  104.     goto T50;
  105. T52:;
  106.     base[10]= Ct;
  107.     base[11]= VV[22];{VOL object V4;
  108.     V4= symbol_value(VV[23]);
  109.     base[13]= VV[24];
  110.     vs_top=(vs_base=base+13)+1;
  111.     Lfind_package();
  112.     vs_top=sup;
  113.     V5= vs_base[0];
  114.     if(!((V4)==(V5))){
  115.     goto T59;}}
  116.     base[12]= VV[25];
  117.     goto T57;
  118. T59:;
  119.     base[13]= symbol_value(VV[23]);
  120.     vs_top=(vs_base=base+13)+1;
  121.     Lpackage_name();
  122.     vs_top=sup;
  123.     base[12]= vs_base[0];
  124. T57:;
  125.     vs_top=(vs_base=base+10)+3;
  126.     Lformat();
  127.     vs_top=sup;
  128. T50:;
  129.     vs_base=vs_top;
  130.     siLreset_stack_limits();
  131.     vs_top=sup;
  132.     if((symbol_value(VV[15]))==Cnil){
  133.     goto T65;}
  134.     {object V6 = Cnil;
  135.     bds_unwind1;
  136.     bds_unwind1;
  137.     bds_unwind1;
  138.     bds_unwind1;
  139.     bds_unwind1;
  140.     bds_unwind1;
  141.     bds_unwind1;
  142.     bds_unwind1;
  143.     bds_unwind1;
  144.     bds_unwind1;
  145.     VMR1(V6)}
  146. T65:;
  147.     frs_push(FRS_CATCH,symbol_value(VV[11]));
  148.     if(nlj_active)
  149.     {nlj_active=FALSE;frs_pop();
  150.     vs_top=sup;
  151.     if((vs_base[0])==Cnil){
  152.     goto T43;}
  153.     goto T69;}
  154.     else{
  155.     base[10]= symbol_value(VV[26]);
  156.     base[11]= Cnil;
  157.     base[12]= symbol_value(VV[27]);
  158.     (VV[3]->s.s_dbind)= simple_symlispcall(VV[123],base+10,3);
  159.     if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[27])))){
  160.     goto T76;}
  161.     vs_base=vs_top;
  162.     Lby();
  163.     vs_top=sup;
  164. T76:;
  165.     {object V7;
  166.     base[10]= (VV[3]->s.s_dbind);
  167.     symlispcall(VV[124],base+10,1);
  168.     Llist();
  169.     vs_top=sup;
  170.     V7= vs_base[0];
  171.     (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
  172.     (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
  173.     (VV[7]->s.s_dbind)= (V7);
  174.     (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
  175.     (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
  176.     (VV[4]->s.s_dbind)= car((VV[7]->s.s_dbind));
  177.     vs_base=vs_top;
  178.     Lfresh_line();
  179.     vs_top=sup;
  180.     {register object V8;
  181.     register object V9;
  182.     V8= (VV[7]->s.s_dbind);
  183.     V9= car((V8));
  184. T99:;
  185.     if(!(endp((V8)))){
  186.     goto T100;}
  187.     goto T95;
  188. T100:;
  189.     base[11]= (V9);
  190.     (void)simple_symlispcall(VV[125],base+11,1);
  191.     princ_char(10,Cnil);
  192.     V8= cdr((V8));
  193.     V9= car((V8));
  194.     goto T99;}
  195. T95:;
  196.     frs_pop();
  197.     goto T43;}}
  198. T69:;
  199.     setq(VV[28],Cnil);
  200.     setq(VV[29],Cnil);
  201.     princ_char(10,VV[30]);
  202.     vs_base=vs_top;
  203.     (void) (*Lnk126)();
  204.     vs_top=sup;
  205. T43:;
  206.     goto T42;
  207. }
  208. /*    function definition for DBL-READ    */
  209.  
  210. static L2()
  211. {register object *base=vs_base;
  212.     register object *sup=base+VM2; VC2
  213.     vs_reserve(VM2);
  214.     {register object V10;
  215.     register object V11;
  216.     register object V12;
  217.     if(vs_top-vs_base>3) too_many_arguments();
  218.     if(vs_base>=vs_top){vs_top=sup;goto T118;}
  219.     V10=(base[0]);
  220.     vs_base++;
  221.     if(vs_base>=vs_top){vs_top=sup;goto T119;}
  222.     V11=(base[1]);
  223.     vs_base++;
  224.     if(vs_base>=vs_top){vs_top=sup;goto T120;}
  225.     V12=(base[2]);
  226.     vs_top=sup;
  227.     goto T121;
  228. T118:;
  229.     V10= symbol_value(VV[26]);
  230. T119:;
  231.     V11= Ct;
  232. T120:;
  233.     V12= Cnil;
  234. T121:;
  235.     {object V13;
  236.     register object V14;
  237.     V13= Cnil;
  238.     V14= Cnil;
  239. T129:;
  240.     base[3]= (V10);
  241.     base[4]= (V11);
  242.     base[5]= (V12);
  243.     vs_top=(vs_base=base+3)+3;
  244.     Lread_char();
  245.     vs_top=sup;
  246.     V14= vs_base[0];
  247.     if(!(eql((V14),VV[31]))){
  248.     goto T137;}
  249.     goto T129;
  250. T137:;
  251.     if(!(((V14))==((V12)))){
  252.     goto T135;}
  253.     base[3]= (V12);
  254.     vs_top=(vs_base=base+3)+1;
  255.     return;
  256. T135:;
  257.     base[3]= (V14);
  258.     base[4]= (V10);
  259.     vs_top=(vs_base=base+3)+2;
  260.     Lunread_char();
  261.     vs_top=sup;
  262.     goto T127;
  263. T127:;
  264.     if(!(eql(VV[32],(V14)))){
  265.     goto T145;}
  266.     base[3]= VV[33];
  267.     base[5]= (V10);
  268.     base[6]= (V11);
  269.     base[7]= (V12);
  270.     vs_top=(vs_base=base+5)+3;
  271.     Lread_line();
  272.     vs_top=sup;
  273.     base[4]= vs_base[0];
  274.     base[5]= VV[34];
  275.     vs_top=(vs_base=base+3)+3;
  276.     (void) (*Lnk121)();
  277.     vs_top=sup;
  278.     V13= vs_base[0];
  279.     base[4]= (V13);
  280.     vs_top=(vs_base=base+4)+1;
  281.     (void) (*Lnk127)();
  282.     vs_top=sup;
  283.     base[3]= vs_base[0];
  284.     base[4]= (V11);
  285.     base[5]= (V12);
  286.     vs_top=(vs_base=base+3)+3;
  287.     Lread();
  288.     return;
  289. T145:;
  290.     base[3]= (V10);
  291.     base[4]= (V11);
  292.     base[5]= (V12);
  293.     vs_top=(vs_base=base+3)+3;
  294.     Lread();
  295.     return;}
  296.     }
  297. }
  298. /*    function definition for BREAK-LEVEL    */
  299.  
  300. static L3()
  301. {register object *VOL base=vs_base;
  302.     register object *VOL sup=base+VM3; VC3
  303.     vs_reserve(VM3);
  304.     bds_check;
  305.     {VOL object V15;
  306.     VOL object V16;
  307.     if(vs_top-vs_base<1) too_few_arguments();
  308.     if(vs_top-vs_base>2) too_many_arguments();
  309.     V15=(base[0]);
  310.     vs_base=vs_base+1;
  311.     if(vs_base>=vs_top){vs_top=sup;goto T162;}
  312.     V16=(base[1]);
  313.     vs_top=sup;
  314.     goto T163;
  315. T162:;
  316.     V16= Cnil;
  317. T163:;
  318.     {VOL object V17;
  319.     if(!(type_of((V15))==t_string)){
  320.     goto T167;}
  321.     bds_bind(VV[35],(V15));
  322.     goto T165;
  323. T167:;
  324.     bds_bind(VV[35],symbol_value(VV[35]));
  325. T165:;
  326.     V18= make_cons(symbol_value(VV[37]),symbol_value(VV[11]));
  327.     bds_bind(VV[36],make_cons(/* INLINE-ARGS */V18,symbol_value(VV[36])));
  328.     bds_bind(VV[11],make_cons(Cnil,Cnil));
  329.     if(((V15))!=Cnil){
  330.     goto T173;}
  331.     bds_bind(VV[37],symbol_value(VV[37]));
  332.     goto T171;
  333. T173:;
  334.     bds_bind(VV[37],make_cons(Ct,symbol_value(VV[37])));
  335. T171:;
  336.     bds_bind(VV[38],one_plus(symbol_value(VV[39])));
  337.     vs_base=vs_top;
  338.     (void) (*Lnk128)();
  339.     vs_top=sup;
  340.     V19= vs_base[0];
  341.     bds_bind(VV[39],one_minus(V19));
  342.     bds_bind(VV[40],(VV[39]->s.s_dbind));{VOL object V20;
  343.     base[25]= symbol_value(VV[42]);
  344.     base[26]= (VV[38]->s.s_dbind);
  345.     vs_top=(vs_base=base+25)+2;
  346.     (void) (*Lnk129)();
  347.     vs_top=sup;
  348.     V20= vs_base[0];
  349.     if(V20==Cnil)goto T179;
  350.     bds_bind(VV[41],V20);
  351.     goto T178;
  352. T179:;}
  353.     vs_base=vs_top;
  354.     (void) (*Lnk130)();
  355.     vs_top=sup;
  356.     V21= vs_base[0];
  357.     bds_bind(VV[41],one_plus(V21));
  358. T178:;
  359.     vs_base=vs_top;
  360.     (void) (*Lnk130)();
  361.     vs_top=sup;
  362.     bds_bind(VV[42],vs_base[0]);
  363.     bds_bind(VV[43],Cnil);
  364.     V17= symbol_value(VV[44]);
  365.     if(!(type_of((V15))==t_string)){
  366.     goto T188;}
  367.     bds_bind(VV[44],Cnil);
  368.     goto T186;
  369. T188:;
  370.     bds_bind(VV[44],(V17));
  371. T186:;
  372.     if(symbol_value(VV[46])!=Cnil){
  373.     bds_bind(VV[45],symbol_value(VV[46]));
  374.     goto T190;}
  375.     bds_bind(VV[45],symbol_value(VV[45]));
  376. T190:;
  377.     bds_bind(VV[47],Cnil);
  378.     bds_bind(VV[0],symbol_value(VV[0]));
  379.     bds_bind(VV[1],symbol_value(VV[1]));
  380.     bds_bind(VV[2],symbol_value(VV[2]));
  381.     bds_bind(VV[3],symbol_value(VV[3]));
  382.     bds_bind(VV[4],symbol_value(VV[4]));
  383.     bds_bind(VV[5],symbol_value(VV[5]));
  384.     bds_bind(VV[6],symbol_value(VV[6]));
  385.     bds_bind(VV[7],symbol_value(VV[7]));
  386.     bds_bind(VV[8],symbol_value(VV[8]));
  387.     bds_bind(VV[9],symbol_value(VV[9]));
  388.     if(((V17))!=Cnil){
  389.     goto T191;}
  390.     if(!(type_of((V15))==t_string)){
  391.     goto T191;}
  392.     vs_base=vs_top;
  393.     (void) (*Lnk131)();
  394.     vs_top=sup;
  395.     base[25]= make_fixnum(length(cdr((VV[37]->s.s_dbind))));
  396.     vs_top=(vs_base=base+25)+1;
  397.     (void) (*Lnk132)();
  398.     vs_top=sup;
  399. T191:;
  400.     base[25]= small_fixnum(1);
  401.     vs_top=(vs_base=base+25)+1;
  402.     (void) (*Lnk133)();
  403.     vs_top=sup;
  404.     setq(VV[48],Ct);
  405.     if(!(type_of((V15))==t_string)){
  406.     goto T204;}
  407.     (void)((*(LnkLI134))());
  408.     princ_char(10,VV[30]);
  409.     setq(VV[21],Cnil);
  410.     goto T202;
  411. T204:;
  412.     base[25]= (V15);
  413.     base[26]= (V16);
  414.     vs_top=(vs_base=base+25)+2;
  415.     (void) (*Lnk135)();
  416.     vs_top=sup;
  417. T202:;
  418. T212:;
  419.     (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
  420.     (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
  421.     (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
  422.     if((symbol_value(VV[21]))==Cnil){
  423.     goto T222;}
  424.     setq(VV[21],Cnil);
  425.     goto T220;
  426. T222:;
  427.     base[25]= symbol_value(VV[49]);
  428.     base[26]= VV[50];
  429.     if(!(type_of((V15))==t_string)){
  430.     goto T229;}
  431.     base[27]= VV[51];
  432.     goto T227;
  433. T229:;
  434.     base[27]= VV[52];
  435. T227:;{VOL object V22;
  436.     V22= symbol_value(VV[23]);
  437.     base[29]= VV[24];
  438.     vs_top=(vs_base=base+29)+1;
  439.     Lfind_package();
  440.     vs_top=sup;
  441.     V23= vs_base[0];
  442.     if(!((V22)==(V23))){
  443.     goto T233;}}
  444.     base[28]= VV[53];
  445.     goto T231;
  446. T233:;
  447.     base[29]= symbol_value(VV[23]);
  448.     vs_top=(vs_base=base+29)+1;
  449.     Lpackage_name();
  450.     vs_top=sup;
  451.     base[28]= vs_base[0];
  452. T231:;
  453.     base[29]= (VV[37]->s.s_dbind);
  454.     vs_top=(vs_base=base+25)+5;
  455.     Lformat();
  456.     vs_top=sup;
  457. T220:;
  458.     frs_push(FRS_CATCH,VV[54]);
  459.     if(nlj_active)
  460.     {nlj_active=FALSE;frs_pop();
  461.     vs_top=sup;
  462.     if((vs_base[0])==Cnil){
  463.     goto T213;}
  464.     goto T240;}
  465.     else{
  466.     frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
  467.     if(nlj_active)
  468.     {nlj_active=FALSE;frs_pop();
  469.     vs_top=sup;
  470.     if((vs_base[0])==Cnil){
  471.     frs_pop();
  472.     goto T213;}
  473.     frs_pop();
  474.     goto T240;}
  475.     else{
  476.     base[25]= symbol_value(VV[49]);
  477.     base[26]= Cnil;
  478.     base[27]= symbol_value(VV[27]);
  479.     vs_top=(vs_base=base+25)+3;
  480.     (void) (*Lnk136)();
  481.     vs_top=sup;
  482.     (VV[3]->s.s_dbind)= vs_base[0];
  483.     if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[27])))){
  484.     goto T248;}
  485.     vs_base=vs_top;
  486.     Lby();
  487.     vs_top=sup;
  488. T248:;
  489.     {object V24;
  490.     object V25;
  491.     V24= Cnil;
  492.     if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
  493.     goto T255;}
  494.     (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
  495. T255:;
  496.     if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
  497.     goto T260;}
  498.     {object V26= car((VV[3]->s.s_dbind));
  499.     if(!((type_of(V26)==t_symbol&&(V26)->s.s_hpack==keyword_package))){
  500.     goto T260;}}
  501.     V24= Ct;
  502.     base[26]= car((VV[3]->s.s_dbind));
  503.     base[27]= cdr((VV[3]->s.s_dbind));
  504.     symlispcall(VV[137],base+26,2);
  505.     goto T254;
  506. T260:;
  507.     base[26]= (VV[3]->s.s_dbind);
  508.     base[27]= Cnil;
  509.     base[28]= Cnil;
  510.     base[29]= (VV[43]->s.s_dbind);
  511.     symlispcall(VV[138],base+26,4);
  512. T254:;
  513.     Llist();
  514.     vs_top=sup;
  515.     V25= vs_base[0];
  516.     if((V24)==Cnil){
  517.     goto T272;}
  518.     if((car((V25)))==(VV[55])){
  519.     goto T273;}
  520.     goto T272;
  521. T273:;
  522.     frs_pop();
  523.     frs_pop();
  524.     base[26]= Cnil;
  525.     vs_top=(vs_base=base+26)+1;
  526.     bds_unwind1;
  527.     bds_unwind1;
  528.     bds_unwind1;
  529.     bds_unwind1;
  530.     bds_unwind1;
  531.     bds_unwind1;
  532.     bds_unwind1;
  533.     bds_unwind1;
  534.     bds_unwind1;
  535.     bds_unwind1;
  536.     bds_unwind1;
  537.     bds_unwind1;
  538.     bds_unwind1;
  539.     bds_unwind1;
  540.     bds_unwind1;
  541.     bds_unwind1;
  542.     bds_unwind1;
  543.     bds_unwind1;
  544.     bds_unwind1;
  545.     bds_unwind1;
  546.     bds_unwind1;
  547.     bds_unwind1;
  548.     bds_unwind1;
  549.     return;
  550. T272:;
  551.     (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
  552.     (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
  553.     (VV[7]->s.s_dbind)= (V25);
  554.     (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
  555.     (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
  556.     (VV[4]->s.s_dbind)= car((VV[7]->s.s_dbind));
  557.     base[26]= symbol_value(VV[49]);
  558.     vs_top=(vs_base=base+26)+1;
  559.     Lfresh_line();
  560.     vs_top=sup;
  561.     {register object V27;
  562.     register object V28;
  563.     V27= (VV[7]->s.s_dbind);
  564.     V28= car((V27));
  565. T292:;
  566.     if(!(endp((V27)))){
  567.     goto T293;}
  568.     goto T251;
  569. T293:;
  570.     base[27]= (V28);
  571.     base[28]= symbol_value(VV[49]);
  572.     (void)simple_symlispcall(VV[125],base+27,2);
  573.     princ_char(10,VV[49]);
  574.     V27= cdr((V27));
  575.     V28= car((V27));
  576.     goto T292;}}
  577. T251:;
  578.     frs_pop();
  579.     frs_pop();
  580.     goto T213;}}
  581. T240:;
  582.     princ_char(10,VV[49]);
  583.     vs_base=vs_top;
  584.     (void) (*Lnk126)();
  585.     vs_top=sup;
  586. T213:;
  587.     goto T212;}
  588.     }
  589. }
  590. /*    local entry for function WARN    */
  591.  
  592. static object LI4(V29,va_alist)
  593.     object V29;
  594.     va_dcl 
  595. {    
  596.     va_list ap;
  597.     int narg = VFUN_NARGS; VMB4 VMS4 VMV4
  598.     bds_check;
  599.     {object V30;
  600.     object V31;
  601.     if(narg <1) too_few_arguments();
  602.     V30= V29;
  603.     narg= narg - 1;
  604.     va_start(ap);
  605.     V32 = list_vector(narg,ap);
  606.     V31= V32;
  607.     bds_bind(VV[56],small_fixnum(4));
  608.     bds_bind(VV[57],small_fixnum(4));
  609.     bds_bind(VV[58],VV[59]);
  610.     if((symbol_value(VV[60]))==Cnil){
  611.     goto T309;}
  612.     base[3]= (V30);
  613.     {object V33;
  614.     V33= (V31);
  615.      vs_top=base+4;
  616.      while(!endp(V33))
  617.      {vs_push(car(V33));V33=cdr(V33);}
  618.     vs_base=base+3;}
  619.     (void) (*Lnk139)();
  620.     vs_top=sup;
  621.     {object V34 = vs_base[0];
  622.     bds_unwind1;
  623.     bds_unwind1;
  624.     bds_unwind1;
  625.     VMR4(V34)}
  626. T309:;
  627.     base[3]= symbol_value(VV[30]);
  628.     base[4]= VV[61];
  629.     vs_top=(vs_base=base+3)+2;
  630.     Lformat();
  631.     vs_top=sup;
  632.     bds_bind(VV[62],Ct);
  633.     base[4]= symbol_value(VV[30]);
  634.     base[5]= (V30);
  635.     {object V35;
  636.     V35= (V31);
  637.      vs_top=base+6;
  638.      while(!endp(V35))
  639.      {vs_push(car(V35));V35=cdr(V35);}
  640.     vs_base=base+4;}
  641.     Lformat();
  642.     vs_top=sup;
  643.     bds_unwind1;
  644.     {object V36 = Cnil;
  645.     bds_unwind1;
  646.     bds_unwind1;
  647.     bds_unwind1;
  648.     VMR4(V36)}}
  649.     }
  650. /*    local entry for function UNIVERSAL-ERROR-HANDLER    */
  651.  
  652. static object LI5(V41,V40,V39,V38,V37,va_alist)
  653.     object V41,V40,V39,V38,V37;
  654.     va_dcl 
  655. {    
  656.     va_list ap;
  657.     int narg = VFUN_NARGS; VMB5 VMS5 VMV5
  658.     bds_check;
  659.     {object V42;
  660.     object V43;
  661.     register object V44;
  662.     object V45;
  663.     register object V46;
  664.     register object V47;
  665.     if(narg <5) too_few_arguments();
  666.     V42= V41;
  667.     V43= V40;
  668.     V44= V39;
  669.     V45= V38;
  670.     V46= V37;
  671.     narg= narg - 5;
  672.     va_start(ap);
  673.     V48 = list_vector(narg,ap);
  674.     V47= V48;
  675.     {object V49;
  676.     V49= Cnil;
  677.     bds_bind(VV[63],Cnil);
  678.     bds_bind(VV[56],symbol_value(VV[64]));
  679.     bds_bind(VV[57],symbol_value(VV[64]));
  680.     bds_bind(VV[58],VV[59]);
  681.     princ_char(10,VV[30]);
  682.     if(((V43))==Cnil){
  683.     goto T324;}
  684.     if((symbol_value(VV[44]))==Cnil){
  685.     goto T324;}
  686.     base[4]= symbol_value(VV[30]);
  687.     base[5]= VV[65];
  688.     vs_top=(vs_base=base+4)+2;
  689.     Lformat();
  690.     vs_top=sup;
  691.     bds_bind(VV[62],Ct);
  692.     base[5]= symbol_value(VV[30]);
  693.     base[6]= (V46);
  694.     {object V50;
  695.     V50= (V47);
  696.      vs_top=base+7;
  697.      while(!endp(V50))
  698.      {vs_push(car(V50));V50=cdr(V50);}
  699.     vs_base=base+5;}
  700.     Lformat();
  701.     vs_top=sup;
  702.     bds_unwind1;
  703.     princ_char(10,VV[30]);
  704.     base[4]= Cnil;
  705.     base[5]= (V46);
  706.     {object V51;
  707.     V51= (V47);
  708.      vs_top=base+6;
  709.      while(!endp(V51))
  710.      {vs_push(car(V51));V51=cdr(V51);}
  711.     vs_base=base+4;}
  712.     Lformat();
  713.     vs_top=sup;
  714.     V49= vs_base[0];
  715.     if(((V44))==Cnil){
  716.     goto T343;}
  717.     base[4]= symbol_value(VV[30]);
  718.     base[5]= VV[66];
  719.     base[6]= (V44);
  720.     vs_top=(vs_base=base+4)+3;
  721.     Lformat();
  722.     vs_top=sup;
  723.     goto T341;
  724. T343:;
  725.     base[4]= symbol_value(VV[30]);
  726.     base[5]= VV[67];
  727.     vs_top=(vs_base=base+4)+2;
  728.     Lformat();
  729.     vs_top=sup;
  730. T341:;
  731.     base[4]= symbol_value(VV[30]);
  732.     base[5]= VV[68];
  733.     vs_top=(vs_base=base+4)+2;
  734.     Lformat();
  735.     vs_top=sup;
  736.     bds_bind(VV[62],Ct);
  737.     base[5]= symbol_value(VV[30]);
  738.     base[6]= VV[69];
  739.     base[7]= (V45);
  740.     base[8]= (V47);
  741.     vs_top=(vs_base=base+5)+4;
  742.     Lformat();
  743.     vs_top=sup;
  744.     bds_unwind1;
  745.     bds_unwind1;
  746.     bds_unwind1;
  747.     bds_unwind1;
  748.     bds_unwind1;
  749.     goto T321;
  750. T324:;
  751.     base[4]= symbol_value(VV[30]);
  752.     base[5]= VV[70];
  753.     vs_top=(vs_base=base+4)+2;
  754.     Lformat();
  755.     vs_top=sup;
  756.     bds_bind(VV[62],Ct);
  757.     base[5]= symbol_value(VV[30]);
  758.     base[6]= (V46);
  759.     {object V52;
  760.     V52= (V47);
  761.      vs_top=base+7;
  762.      while(!endp(V52))
  763.      {vs_push(car(V52));V52=cdr(V52);}
  764.     vs_base=base+5;}
  765.     Lformat();
  766.     vs_top=sup;
  767.     bds_unwind1;
  768.     princ_char(10,VV[30]);
  769.     if(!((length(symbol_value(VV[71])))>(0))){
  770.     goto T365;}
  771.     base[4]= symbol_value(VV[30]);
  772.     base[5]= VV[72];
  773.     vs_top=(vs_base=base+4)+2;
  774.     Lformat();
  775.     vs_top=sup;
  776. T365:;
  777.     base[4]= Cnil;
  778.     base[5]= (V46);
  779.     {object V53;
  780.     V53= (V47);
  781.      vs_top=base+6;
  782.      while(!endp(V53))
  783.      {vs_push(car(V53));V53=cdr(V53);}
  784.     vs_base=base+4;}
  785.     Lformat();
  786.     vs_top=sup;
  787.     V49= vs_base[0];
  788.     if(((V44))==Cnil){
  789.     goto T376;}
  790.     base[4]= symbol_value(VV[30]);
  791.     base[5]= VV[73];
  792.     base[6]= (V44);
  793.     vs_top=(vs_base=base+4)+3;
  794.     Lformat();
  795.     vs_top=sup;
  796.     bds_unwind1;
  797.     bds_unwind1;
  798.     bds_unwind1;
  799.     bds_unwind1;
  800.     goto T321;
  801. T376:;
  802.     base[4]= symbol_value(VV[30]);
  803.     base[5]= VV[74];
  804.     vs_top=(vs_base=base+4)+2;
  805.     Lformat();
  806.     vs_top=sup;
  807.     bds_unwind1;
  808.     bds_unwind1;
  809.     bds_unwind1;
  810.     bds_unwind1;
  811. T321:;
  812.     base[0]= (V49);
  813.     vs_top=(vs_base=base+0)+1;
  814.     (void) (*Lnk140)();
  815.     vs_top=sup;
  816.     if(((V43))!=Cnil){
  817.     goto T386;}
  818.     {frame_ptr fr;
  819.     fr=frs_sch_catch(symbol_value(VV[11]));
  820.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,symbol_value(VV[11]));
  821.     base[0]= symbol_value(VV[11]);
  822.     vs_top=(vs_base=base+0)+1;
  823.     unwind(fr,symbol_value(VV[11]));}
  824. T386:;
  825.     {object V54 = Cnil;
  826.     VMR5(V54)}}}
  827.     }
  828. /*    local entry for function BREAK    */
  829.  
  830. static object LI6(va_alist)
  831.     va_dcl 
  832. {    
  833.     va_list ap;
  834.     int narg = VFUN_NARGS; VMB6 VMS6 VMV6
  835.     bds_check;
  836.     {object V55;
  837.     object V56;
  838.     narg = narg - 0;
  839.     if (narg <= 0) goto T389;
  840.     else {
  841.     va_start(ap);
  842.     V55= va_arg(ap,object);}
  843.     --narg; goto T390;
  844. T389:;
  845.     V55= Cnil;
  846. T390:;
  847.     V57 = list_vector(narg,ap);
  848.     V56= V57;
  849.     {object V58;
  850.     V58= Cnil;
  851.     bds_bind(VV[63],Cnil);
  852.     bds_bind(VV[56],small_fixnum(4));
  853.     bds_bind(VV[57],small_fixnum(4));
  854.     bds_bind(VV[58],VV[59]);
  855.     princ_char(10,VV[30]);
  856.     if(((V55))==Cnil){
  857.     goto T396;}
  858.     base[4]= symbol_value(VV[30]);
  859.     base[5]= VV[75];
  860.     vs_top=(vs_base=base+4)+2;
  861.     Lformat();
  862.     vs_top=sup;
  863.     bds_bind(VV[62],Ct);
  864.     base[5]= symbol_value(VV[30]);
  865.     base[6]= (V55);
  866.     {object V59;
  867.     V59= (V56);
  868.      vs_top=base+7;
  869.      while(!endp(V59))
  870.      {vs_push(car(V59));V59=cdr(V59);}
  871.     vs_base=base+5;}
  872.     Lformat();
  873.     vs_top=sup;
  874.     bds_unwind1;
  875.     princ_char(10,VV[30]);
  876.     base[4]= Cnil;
  877.     base[5]= (V55);
  878.     {object V60;
  879.     V60= (V56);
  880.      vs_top=base+6;
  881.      while(!endp(V60))
  882.      {vs_push(car(V60));V60=cdr(V60);}
  883.     vs_base=base+4;}
  884.     Lformat();
  885.     vs_top=sup;
  886.     V58= vs_base[0];
  887.     bds_unwind1;
  888.     bds_unwind1;
  889.     bds_unwind1;
  890.     bds_unwind1;
  891.     goto T393;
  892. T396:;
  893.     base[4]= symbol_value(VV[30]);
  894.     base[5]= VV[76];
  895.     vs_top=(vs_base=base+4)+2;
  896.     Lformat();
  897.     vs_top=sup;
  898.     V58= VV[77];
  899.     bds_unwind1;
  900.     bds_unwind1;
  901.     bds_unwind1;
  902.     bds_unwind1;
  903. T393:;
  904.     bds_bind(VV[44],Ct);
  905.     base[1]= (V58);
  906.     vs_top=(vs_base=base+1)+1;
  907.     (void) (*Lnk140)();
  908.     vs_top=sup;
  909.     bds_unwind1;
  910.     {object V61 = Cnil;
  911.     VMR6(V61)}}}
  912.     }
  913. /*    local entry for function TERMINAL-INTERRUPT    */
  914.  
  915. static object LI7(V63)
  916.  
  917. object V63;
  918. {     VMB7 VMS7 VMV7
  919.     bds_check;
  920. TTL:;
  921.     bds_bind(VV[44],Ct);
  922.     if(((V63))==Cnil){
  923.     goto T417;}
  924.     base[1]= VV[78];
  925.     base[2]= VV[79];
  926.     vs_top=(vs_base=base+1)+2;
  927.     Lcerror();
  928.     vs_top=sup;
  929.     {object V64 = vs_base[0];
  930.     bds_unwind1;
  931.     VMR7(V64)}
  932. T417:;
  933.     base[1]= VV[80];
  934.     vs_top=(vs_base=base+1)+1;
  935.     Lerror();
  936.     vs_top=sup;
  937.     {object V65 = vs_base[0];
  938.     bds_unwind1;
  939.     VMR7(V65)}
  940. }
  941. /*    local entry for function BREAK-CALL    */
  942.  
  943. static object LI8(V68,V69)
  944.  
  945. object V68;object V69;
  946. {     VMB8 VMS8 VMV8
  947. TTL:;
  948.     {object V70;
  949.     V70= get((V68),VV[81],Cnil);
  950.     if(((V70))==Cnil){
  951.     goto T424;}
  952.     base[1]= make_cons((V70),(V69));
  953.     base[2]= Cnil;
  954.     base[3]= Cnil;
  955.     base[4]= symbol_value(VV[43]);
  956.     vs_top=(vs_base=base+1)+4;
  957.     Levalhook();
  958.     vs_top=sup;
  959.     {object V71 = vs_base[0];
  960.     VMR8(V71)}
  961. T424:;
  962.     base[1]= symbol_value(VV[49]);
  963.     base[2]= VV[82];
  964.     base[3]= (V68);
  965.     vs_top=(vs_base=base+1)+3;
  966.     Lformat();
  967.     vs_top=sup;
  968.     {object V72 = vs_base[0];
  969.     VMR8(V72)}}
  970. }
  971. /*    function definition for BREAK-QUIT    */
  972.  
  973. static L9()
  974. {register object *base=vs_base;
  975.     register object *sup=base+VM9; VC9
  976.     vs_reserve(VM9);
  977.     {object V73;
  978.     if(vs_top-vs_base>1) too_many_arguments();
  979.     if(vs_base>=vs_top){vs_top=sup;goto T433;}
  980.     V73=(base[0]);
  981.     vs_top=sup;
  982.     goto T434;
  983. T433:;
  984.     V73= small_fixnum(0);
  985. T434:;
  986.     {object V74;
  987.     V74= make_fixnum(length(symbol_value(VV[37])));
  988.     if(!(number_compare((V73),small_fixnum(0))>=0)){
  989.     goto T437;}
  990.     if(!(number_compare((V73),(V74))<0)){
  991.     goto T437;}
  992.     {object V75;
  993.     base[2]= (V74);
  994.     base[3]= (V73);
  995.     base[4]= small_fixnum(1);
  996.     vs_top=(vs_base=base+2)+3;
  997.     Lminus();
  998.     vs_top=sup;
  999.     V76= vs_base[0];
  1000.     V75= nth(fixint(V76),symbol_value(VV[36]));
  1001.     {frame_ptr fr;
  1002.     base[2]= cdr((V75));
  1003.     fr=frs_sch_catch(base[2]);
  1004.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[2]);
  1005.     base[3]= cdr((V75));
  1006.     vs_top=(vs_base=base+3)+1;
  1007.     unwind(fr,base[2]);}}
  1008. T437:;
  1009.     vs_base=vs_top;
  1010.     (void) (*Lnk126)();
  1011.     return;}
  1012.     }
  1013. }
  1014. /*    function definition for BREAK-PREVIOUS    */
  1015.  
  1016. static L10()
  1017. {register object *base=vs_base;
  1018.     register object *sup=base+VM10; VC10
  1019.     vs_reserve(VM10);
  1020.     {register object V77;
  1021.     if(vs_top-vs_base>1) too_many_arguments();
  1022.     if(vs_base>=vs_top){vs_top=sup;goto T449;}
  1023.     V77=(base[0]);
  1024.     vs_top=sup;
  1025.     goto T450;
  1026. T449:;
  1027.     V77= small_fixnum(1);
  1028. T450:;
  1029.     {register object V78;
  1030.     V78= one_minus(symbol_value(VV[40]));
  1031. T454:;
  1032.     if(number_compare((V78),symbol_value(VV[38]))<0){
  1033.     goto T456;}
  1034.     if(!(number_compare((V77),small_fixnum(0))<=0)){
  1035.     goto T455;}
  1036. T456:;
  1037.     (void)((*(LnkLI141))());
  1038.     vs_base=vs_top;
  1039.     (void) (*Lnk126)();
  1040.     return;
  1041. T455:;
  1042.     if(((*(LnkLI142))((V78)))==Cnil){
  1043.     goto T462;}
  1044.     setq(VV[40],(V78));
  1045.     V77= one_minus((V77));
  1046. T462:;
  1047.     V78= one_minus((V78));
  1048.     goto T454;}
  1049.     }
  1050. }
  1051. /*    local entry for function SET-CURRENT    */
  1052.  
  1053. static object LI11()
  1054.  
  1055. {     VMB11 VMS11 VMV11
  1056. TTL:;
  1057.     {register object V79;
  1058.     V79= symbol_value(VV[40]);
  1059. T472:;
  1060.     if(((*(LnkLI142))((V79)))!=Cnil){
  1061.     goto T474;}
  1062.     if(!(number_compare((V79),symbol_value(VV[38]))<=0)){
  1063.     goto T473;}
  1064. T474:;
  1065.     setq(VV[40],(V79));
  1066.     (void)((*(LnkLI141))());
  1067.     base[0]= symbol_value(VV[49]);
  1068.     base[1]= VV[83];
  1069.     base[3]= symbol_value(VV[40]);
  1070.     vs_top=(vs_base=base+3)+1;
  1071.     (void) (*Lnk143)();
  1072.     vs_top=sup;
  1073.     base[2]= vs_base[0];
  1074.     base[3]= cdr(symbol_value(VV[37]));
  1075.     vs_top=(vs_base=base+0)+4;
  1076.     Lformat();
  1077.     vs_top=sup;
  1078.     {object V80 = vs_base[0];
  1079.     VMR11(V80)}
  1080. T473:;
  1081.     V79= one_minus((V79));
  1082.     goto T472;}
  1083. }
  1084. /*    function definition for BREAK-NEXT    */
  1085.  
  1086. static L12()
  1087. {register object *base=vs_base;
  1088.     register object *sup=base+VM12; VC12
  1089.     vs_reserve(VM12);
  1090.     {register object V81;
  1091.     if(vs_top-vs_base>1) too_many_arguments();
  1092.     if(vs_base>=vs_top){vs_top=sup;goto T490;}
  1093.     V81=(base[0]);
  1094.     vs_top=sup;
  1095.     goto T491;
  1096. T490:;
  1097.     V81= small_fixnum(1);
  1098. T491:;
  1099.     {register object V82;
  1100.     V82= symbol_value(VV[40]);
  1101. T494:;
  1102.     if(number_compare((V82),symbol_value(VV[39]))>0){
  1103.     goto T496;}
  1104.     if(!(number_compare((V81),small_fixnum(0))<0)){
  1105.     goto T495;}
  1106. T496:;
  1107.     (void)((*(LnkLI141))());
  1108.     vs_base=vs_top;
  1109.     (void) (*Lnk126)();
  1110.     return;
  1111. T495:;
  1112.     if(((*(LnkLI142))((V82)))==Cnil){
  1113.     goto T502;}
  1114.     setq(VV[40],(V82));
  1115.     V81= one_minus((V81));
  1116. T502:;
  1117.     V82= one_plus((V82));
  1118.     goto T494;}
  1119.     }
  1120. }
  1121. /*    function definition for BREAK-GO    */
  1122.  
  1123. static L13()
  1124. {register object *base=vs_base;
  1125.     register object *sup=base+VM13; VC13
  1126.     vs_reserve(VM13);
  1127.     {object V83;
  1128.     check_arg(1);
  1129.     V83=(base[0]);
  1130.     vs_top=sup;
  1131. TTL:;
  1132.     {object V84= (number_compare((V83),symbol_value(VV[38]))>=0?((V83)):symbol_value(VV[38]));
  1133.     setq(VV[40],(number_compare(V84,symbol_value(VV[39]))<=0?(V84):symbol_value(VV[39])));}
  1134.     if(((*(LnkLI142))(symbol_value(VV[40])))==Cnil){
  1135.     goto T514;}
  1136.     (void)((*(LnkLI141))());
  1137.     vs_base=vs_top;
  1138.     (void) (*Lnk126)();
  1139.     return;
  1140. T514:;
  1141.     vs_base=vs_top;
  1142.     (void) (*Lnk144)();
  1143.     return;
  1144.     }
  1145. }
  1146. /*    function definition for BREAK-MESSAGE    */
  1147.  
  1148. static L14()
  1149. {register object *base=vs_base;
  1150.     register object *sup=base+VM14; VC14
  1151.     vs_reserve(VM14);
  1152.     check_arg(0);
  1153.     vs_top=sup;
  1154. TTL:;
  1155.     (void)(princ(symbol_value(VV[35]),symbol_value(VV[49])));
  1156.     princ_char(10,VV[49]);
  1157.     vs_base=vs_top=base+0;
  1158.     vs_base[0]=Cnil;
  1159.     return;
  1160. }
  1161. /*    function definition for DESCRIBE-ENVIRONMENT    */
  1162.  
  1163. static L15()
  1164. {register object *base=vs_base;
  1165.     register object *sup=base+VM15; VC15
  1166.     vs_reserve(VM15);
  1167.     {object V85;
  1168.     register object V86;
  1169.     if(vs_top-vs_base>2) too_many_arguments();
  1170.     if(vs_base>=vs_top){vs_top=sup;goto T519;}
  1171.     V85=(base[0]);
  1172.     vs_base++;
  1173.     if(vs_base>=vs_top){vs_top=sup;goto T520;}
  1174.     V86=(base[1]);
  1175.     vs_top=sup;
  1176.     goto T521;
  1177. T519:;
  1178.     V85= symbol_value(VV[43]);
  1179. T520:;
  1180.     V86= symbol_value(VV[49]);
  1181. T521:;
  1182.     if(!((length((V85)))==(3))){
  1183.     goto T525;}
  1184.     goto T524;
  1185. T525:;
  1186.     base[2]= VV[84];
  1187.     vs_top=(vs_base=base+2)+1;
  1188.     Lerror();
  1189.     vs_top=sup;
  1190. T524:;
  1191.     {register object V87;
  1192.     V87= VV[85];
  1193.     base[2]= (V86);
  1194.     base[3]= (V87);
  1195.     base[4]= VV[86];
  1196.     {object V88;
  1197.     {object V89;
  1198.     object V90= car(symbol_value(VV[43]));
  1199.     if(endp(V90)){
  1200.     V88= Cnil;
  1201.     goto T532;}
  1202.     base[5]=V89=MMcons(Cnil,Cnil);
  1203. T533:;
  1204.     (V89->c.c_car)= car((V90->c.c_car));
  1205.     if(endp(V90=MMcdr(V90))){
  1206.     V88= base[5];
  1207.     goto T532;}
  1208.     V89=MMcdr(V89)=MMcons(Cnil,Cnil);
  1209.     goto T533;}
  1210. T532:;
  1211.      vs_top=base+5;
  1212.      while(!endp(V88))
  1213.      {vs_push(car(V88));V88=cdr(V88);}
  1214.     vs_base=base+2;}
  1215.     Lformat();
  1216.     vs_top=sup;
  1217.     base[2]= (V86);
  1218.     base[3]= (V87);
  1219.     base[4]= VV[87];
  1220.     {object V91;
  1221.     {object V92;
  1222.     object V93= cadr(symbol_value(VV[43]));
  1223.     if(endp(V93)){
  1224.     V91= Cnil;
  1225.     goto T539;}
  1226.     base[5]=V92=MMcons(Cnil,Cnil);
  1227. T540:;
  1228.     (V92->c.c_car)= car((V93->c.c_car));
  1229.     if(endp(V93=MMcdr(V93))){
  1230.     V91= base[5];
  1231.     goto T539;}
  1232.     V92=MMcdr(V92)=MMcons(Cnil,Cnil);
  1233.     goto T540;}
  1234. T539:;
  1235.      vs_top=base+5;
  1236.      while(!endp(V91))
  1237.      {vs_push(car(V91));V91=cdr(V91);}
  1238.     vs_base=base+2;}
  1239.     Lformat();
  1240.     vs_top=sup;
  1241.     base[2]= (V86);
  1242.     base[3]= (V87);
  1243.     base[4]= VV[88];
  1244.     {object V94;
  1245.     {object V95;
  1246.     object V96= caddr(symbol_value(VV[43]));
  1247.     if(endp(V96)){
  1248.     V94= Cnil;
  1249.     goto T546;}
  1250.     base[5]=V95=MMcons(Cnil,Cnil);
  1251. T547:;
  1252.     if(!((cadr((V96->c.c_car)))==(VV[89]))){
  1253.     goto T550;}
  1254.     (V95->c.c_cdr)= make_cons(car((V96->c.c_car)),Cnil);
  1255.     goto T548;
  1256. T550:;
  1257.     (V95->c.c_cdr)= Cnil;
  1258. T548:;
  1259.     while(!endp(MMcdr(V95)))V95=MMcdr(V95);
  1260.     if(endp(V96=MMcdr(V96))){
  1261.     base[5]=base[5]->c.c_cdr;
  1262.     V94= base[5];
  1263.     goto T546;}
  1264.     goto T547;}
  1265. T546:;
  1266.      vs_top=base+5;
  1267.      while(!endp(V94))
  1268.      {vs_push(car(V94));V94=cdr(V94);}
  1269.     vs_base=base+2;}
  1270.     Lformat();
  1271.     vs_top=sup;
  1272.     base[2]= (V86);
  1273.     base[3]= (V87);
  1274.     base[4]= VV[90];
  1275.     {object V98;
  1276.     {object V99;
  1277.     object V100= caddr(symbol_value(VV[43]));
  1278.     if(endp(V100)){
  1279.     V98= Cnil;
  1280.     goto T555;}
  1281.     base[5]=V99=MMcons(Cnil,Cnil);
  1282. T556:;
  1283.     if(!((cadr((V100->c.c_car)))==(VV[91]))){
  1284.     goto T559;}
  1285.     (V99->c.c_cdr)= make_cons(car((V100->c.c_car)),Cnil);
  1286.     goto T557;
  1287. T559:;
  1288.     (V99->c.c_cdr)= Cnil;
  1289. T557:;
  1290.     while(!endp(MMcdr(V99)))V99=MMcdr(V99);
  1291.     if(endp(V100=MMcdr(V100))){
  1292.     base[5]=base[5]->c.c_cdr;
  1293.     V98= base[5];
  1294.     goto T555;}
  1295.     goto T556;}
  1296. T555:;
  1297.      vs_top=base+5;
  1298.      while(!endp(V98))
  1299.      {vs_push(car(V98));V98=cdr(V98);}
  1300.     vs_base=base+2;}
  1301.     Lformat();
  1302.     return;}
  1303.     }
  1304. }
  1305. /*    function definition for BREAK-VS    */
  1306.  
  1307. static L16()
  1308. {register object *base=vs_base;
  1309.     register object *sup=base+VM16; VC16
  1310.     vs_reserve(VM16);
  1311.     {register object V102;
  1312.     object V103;
  1313.     if(vs_top-vs_base>2) too_many_arguments();
  1314.     if(vs_base>=vs_top){vs_top=sup;goto T561;}
  1315.     V102=(base[0]);
  1316.     vs_base++;
  1317.     if(vs_base>=vs_top){vs_top=sup;goto T562;}
  1318.     V103=(base[1]);
  1319.     vs_top=sup;
  1320.     goto T563;
  1321. T561:;
  1322.     base[2]= symbol_value(VV[38]);
  1323.     vs_top=(vs_base=base+2)+1;
  1324.     (void) (*Lnk145)();
  1325.     vs_top=sup;
  1326.     V102= vs_base[0];
  1327. T562:;
  1328.     base[2]= symbol_value(VV[39]);
  1329.     vs_top=(vs_base=base+2)+1;
  1330.     (void) (*Lnk145)();
  1331.     vs_top=sup;
  1332.     V103= vs_base[0];
  1333. T563:;
  1334.     base[2]= symbol_value(VV[38]);
  1335.     vs_top=(vs_base=base+2)+1;
  1336.     (void) (*Lnk145)();
  1337.     vs_top=sup;
  1338.     V104= vs_base[0];
  1339.     V102= (number_compare((V102),V104)>=0?((V102)):V104);
  1340.     base[2]= one_plus(symbol_value(VV[39]));
  1341.     vs_top=(vs_base=base+2)+1;
  1342.     (void) (*Lnk145)();
  1343.     vs_top=sup;
  1344.     V105= vs_base[0];
  1345.     V106= one_minus(V105);
  1346.     V103= (number_compare((V103),/* INLINE-ARGS */V106)<=0?((V103)):/* INLINE-ARGS */V106);
  1347.     {register object V107;
  1348.     V107= symbol_value(VV[38]);
  1349. T577:;
  1350.     if(number_compare((V107),symbol_value(VV[39]))>=0){
  1351.     goto T579;}
  1352.     base[2]= (V107);
  1353.     vs_top=(vs_base=base+2)+1;
  1354.     (void) (*Lnk145)();
  1355.     vs_top=sup;
  1356.     V108= vs_base[0];
  1357.     if(!(number_compare(V108,(V102))>=0)){
  1358.     goto T578;}
  1359. T579:;
  1360.     {register object V109;
  1361.     V109= (V102);
  1362. T586:;
  1363.     if(!(number_compare((V109),(V103))>0)){
  1364.     goto T587;}
  1365.     vs_base=vs_top=base+2;
  1366.     vs_base[0]=Cnil;
  1367.     return;
  1368. T587:;
  1369. T593:;
  1370.     base[2]= (V107);
  1371.     vs_top=(vs_base=base+2)+1;
  1372.     (void) (*Lnk145)();
  1373.     vs_top=sup;
  1374.     V110= vs_base[0];
  1375.     if(!(number_compare(V110,(V109))>0)){
  1376.     goto T594;}
  1377.     goto T591;
  1378. T594:;
  1379.     if(((*(LnkLI142))((V107)))==Cnil){
  1380.     goto T600;}
  1381.     (void)((*(LnkLI146))((V107)));
  1382. T600:;
  1383.     V107= number_plus((V107),small_fixnum(1));
  1384.     goto T593;
  1385. T591:;
  1386.     base[2]= symbol_value(VV[49]);
  1387.     base[3]= VV[92];
  1388.     base[4]= (V109);
  1389.     base[6]= (V109);
  1390.     vs_top=(vs_base=base+6)+1;
  1391.     (void) (*Lnk147)();
  1392.     vs_top=sup;
  1393.     base[5]= vs_base[0];
  1394.     vs_top=(vs_base=base+2)+4;
  1395.     Lformat();
  1396.     vs_top=sup;
  1397.     V109= one_plus((V109));
  1398.     goto T586;}
  1399. T578:;
  1400.     V107= one_plus((V107));
  1401.     goto T577;}
  1402.     }
  1403. }
  1404. /*    function definition for BREAK-LOCAL    */
  1405.  
  1406. static L17()
  1407. {register object *base=vs_base;
  1408.     register object *sup=base+VM17; VC17
  1409.     vs_reserve(VM17);
  1410.     {object V111;
  1411.     if(vs_top-vs_base>1) too_many_arguments();
  1412.     if(vs_base>=vs_top){vs_top=sup;goto T620;}
  1413.     V111=(base[0]);
  1414.     vs_top=sup;
  1415.     goto T621;
  1416. T620:;
  1417.     V111= small_fixnum(0);
  1418. T621:;
  1419.     {object V112;
  1420.     base[2]= symbol_value(VV[40]);
  1421.     vs_top=(vs_base=base+2)+1;
  1422.     (void) (*Lnk145)();
  1423.     vs_top=sup;
  1424.     V113= vs_base[0];
  1425.     V112= number_plus(V113,(V111));
  1426.     base[2]= (V112);
  1427.     base[3]= (V112);
  1428.     vs_top=(vs_base=base+2)+2;
  1429.     (void) (*Lnk148)();
  1430.     return;}
  1431.     }
  1432. }
  1433. /*    function definition for BREAK-BDS    */
  1434.  
  1435. static L18()
  1436. {register object *base=vs_base;
  1437.     register object *sup=base+VM18; VC18
  1438.     vs_reserve(VM18);
  1439.     {register object V114;
  1440.     vs_top[0]=Cnil;
  1441.     {object *p=vs_top;
  1442.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1443.     V114=(base[0]);
  1444.     vs_top=sup;
  1445.     {register object V115;
  1446.     V115= symbol_value(VV[41]);
  1447.     {register object V116;
  1448.     register object V117;
  1449.     base[1]= one_minus(symbol_value(VV[41]));
  1450.     vs_top=(vs_base=base+1)+1;
  1451.     (void) (*Lnk149)();
  1452.     vs_top=sup;
  1453.     V118= vs_base[0];
  1454.     V116= one_plus(V118);
  1455.     base[1]= one_plus(symbol_value(VV[42]));
  1456.     vs_top=(vs_base=base+1)+1;
  1457.     (void) (*Lnk149)();
  1458.     vs_top=sup;
  1459.     V117= vs_base[0];
  1460. T635:;
  1461.     if(!(number_compare((V116),(V117))>0)){
  1462.     goto T636;}
  1463.     vs_base=vs_top=base+1;
  1464.     vs_base[0]=Cnil;
  1465.     return;
  1466. T636:;
  1467.     if(((V114))==Cnil){
  1468.     goto T641;}
  1469.     base[1]= (V116);
  1470.     vs_top=(vs_base=base+1)+1;
  1471.     (void) (*Lnk150)();
  1472.     vs_top=sup;
  1473.     V120= vs_base[0];
  1474.     {register object x= V120,V119= (V114);
  1475.     while(!endp(V119))
  1476.     if(eql(x,V119->c.c_car)){
  1477.     goto T644;
  1478.     }else V119=V119->c.c_cdr;
  1479.     goto T640;}
  1480. T644:;
  1481. T641:;
  1482. T649:;
  1483.     if(number_compare((V115),symbol_value(VV[42]))>0){
  1484.     goto T651;}
  1485.     base[1]= (V115);
  1486.     vs_top=(vs_base=base+1)+1;
  1487.     (void) (*Lnk149)();
  1488.     vs_top=sup;
  1489.     V121= vs_base[0];
  1490.     if(!(number_compare(V121,(V116))>0)){
  1491.     goto T650;}
  1492. T651:;
  1493.     goto T647;
  1494. T650:;
  1495.     (void)((*(LnkLI151))((V115)));
  1496.     V115= number_plus((V115),small_fixnum(1));
  1497.     goto T649;
  1498. T647:;
  1499.     base[1]= symbol_value(VV[49]);
  1500.     base[2]= VV[93];
  1501.     base[3]= (V116);
  1502.     base[5]= (V116);
  1503.     vs_top=(vs_base=base+5)+1;
  1504.     (void) (*Lnk150)();
  1505.     vs_top=sup;
  1506.     base[4]= vs_base[0];
  1507.     base[6]= (V116);
  1508.     vs_top=(vs_base=base+6)+1;
  1509.     (void) (*Lnk152)();
  1510.     vs_top=sup;
  1511.     base[5]= vs_base[0];
  1512.     vs_top=(vs_base=base+1)+5;
  1513.     Lformat();
  1514.     vs_top=sup;
  1515. T640:;
  1516.     V116= one_plus((V116));
  1517.     goto T635;}}
  1518.     }
  1519. }
  1520. /*    function definition for SIMPLE-BACKTRACE    */
  1521.  
  1522. static L19()
  1523. {register object *base=vs_base;
  1524.     register object *sup=base+VM19; VC19
  1525.     vs_reserve(VM19);
  1526.     check_arg(0);
  1527.     vs_top=sup;
  1528. TTL:;
  1529.     princ_str("Backtrace: ",VV[49]);
  1530.     {register object V122;
  1531.     register object V123;
  1532.     V122= symbol_value(VV[38]);
  1533.     V123= Cnil;
  1534. T677:;
  1535.     if(!(number_compare((V122),symbol_value(VV[39]))>0)){
  1536.     goto T678;}
  1537.     princ_char(10,VV[49]);
  1538.     vs_base=vs_top=base+0;
  1539.     vs_base[0]=Cnil;
  1540.     return;
  1541. T678:;
  1542.     if(((*(LnkLI142))((V122)))==Cnil){
  1543.     goto T683;}
  1544.     if(((V123))==Cnil){
  1545.     goto T686;}
  1546.     princ_str(" > ",VV[49]);
  1547. T686:;
  1548.     base[1]= (V122);
  1549.     vs_top=(vs_base=base+1)+1;
  1550.     (void) (*Lnk143)();
  1551.     vs_top=sup;
  1552.     base[0]= vs_base[0];
  1553.     base[1]= VV[94];
  1554.     base[2]= symbol_value(VV[49]);
  1555.     base[3]= VV[95];
  1556.     base[4]= Ct;
  1557.     base[5]= VV[96];
  1558.     if(!(number_compare((V122),symbol_value(VV[40]))==0)){
  1559.     goto T698;}
  1560.     base[6]= VV[59];
  1561.     goto T696;
  1562. T698:;
  1563.     base[6]= VV[97];
  1564. T696:;
  1565.     vs_top=(vs_base=base+0)+7;
  1566.     Lwrite();
  1567.     vs_top=sup;
  1568. T683:;
  1569.     V122= one_plus((V122));
  1570.     V123= Ct;
  1571.     goto T677;}
  1572. }
  1573. /*    function definition for IHS-BACKTRACE    */
  1574.  
  1575. static L20()
  1576. {register object *base=vs_base;
  1577.     register object *sup=base+VM20; VC20
  1578.     vs_reserve(VM20);
  1579.     {object V124;
  1580.     register object V125;
  1581.     if(vs_top-vs_base>2) too_many_arguments();
  1582.     if(vs_base>=vs_top){vs_top=sup;goto T705;}
  1583.     V124=(base[0]);
  1584.     vs_base++;
  1585.     if(vs_base>=vs_top){vs_top=sup;goto T706;}
  1586.     V125=(base[1]);
  1587.     vs_top=sup;
  1588.     goto T707;
  1589. T705:;
  1590.     V124= symbol_value(VV[38]);
  1591. T706:;
  1592.     V125= symbol_value(VV[39]);
  1593. T707:;
  1594.     V124= (number_compare((V124),symbol_value(VV[38]))>=0?((V124)):symbol_value(VV[38]));
  1595.     V125= (number_compare((V125),symbol_value(VV[39]))<=0?((V125)):symbol_value(VV[39]));
  1596.     {register object V126;
  1597.     register object V127;
  1598.     V126= (V124);{object V128;
  1599.     base[3]= symbol_value(VV[41]);
  1600.     base[4]= (V124);
  1601.     vs_top=(vs_base=base+3)+2;
  1602.     (void) (*Lnk129)();
  1603.     vs_top=sup;
  1604.     V128= vs_base[0];
  1605.     if(V128==Cnil)goto T716;
  1606.     V127= V128;
  1607.     goto T715;
  1608. T716:;}
  1609.     V127= one_plus(symbol_value(VV[42]));
  1610. T715:;
  1611. T721:;
  1612.     if(!(number_compare((V126),(V125))>0)){
  1613.     goto T722;}
  1614.     vs_base=vs_top=base+3;
  1615.     vs_base[0]=Cnil;
  1616.     return;
  1617. T722:;
  1618.     if(((*(LnkLI142))((V126)))==Cnil){
  1619.     goto T726;}
  1620.     (void)((*(LnkLI146))((V126)));
  1621. T726:;
  1622. T731:;
  1623.     if(number_compare((V127),symbol_value(VV[42]))>0){
  1624.     goto T733;}
  1625.     base[3]= (V127);
  1626.     vs_top=(vs_base=base+3)+1;
  1627.     (void) (*Lnk153)();
  1628.     vs_top=sup;
  1629.     V129= vs_base[0];
  1630.     if(!(number_compare(V129,(V126))>0)){
  1631.     goto T732;}
  1632. T733:;
  1633.     goto T729;
  1634. T732:;
  1635.     (void)((*(LnkLI151))((V127)));
  1636.     V127= number_plus((V127),small_fixnum(1));
  1637.     goto T731;
  1638. T729:;
  1639.     V126= one_plus((V126));
  1640.     goto T721;}
  1641.     }
  1642. }
  1643. /*    local entry for function PRINT-IHS    */
  1644.  
  1645. static object LI21(V131)
  1646.  
  1647. register object V131;
  1648. {     VMB21 VMS21 VMV21
  1649.     bds_check;
  1650. TTL:;
  1651.     bds_bind(VV[56],small_fixnum(2));
  1652.     bds_bind(VV[57],small_fixnum(4));
  1653.     base[2]= Ct;
  1654.     base[3]= VV[98];
  1655.     base[4]= (number_compare((V131),symbol_value(VV[40]))==0?Ct:Cnil);
  1656.     base[5]= (V131);
  1657.     {register object V132;
  1658.     base[7]= (V131);
  1659.     vs_top=(vs_base=base+7)+1;
  1660.     (void) (*Lnk154)();
  1661.     vs_top=sup;
  1662.     V132= vs_base[0];
  1663.     if(type_of((V132))==t_symbol){
  1664.     goto T755;}
  1665.     base[7]= (V132);
  1666.     vs_top=(vs_base=base+7)+1;
  1667.     Lcompiled_function_p();
  1668.     vs_top=sup;
  1669.     if((vs_base[0])==Cnil){
  1670.     goto T756;}
  1671. T755:;
  1672.     base[6]= (V132);
  1673.     goto T752;
  1674. T756:;
  1675.     if(!(type_of((V132))==t_cons)){
  1676.     goto T762;}
  1677.     {object V133= car((V132));
  1678.     if((V133!= VV[99]))goto T764;
  1679.     base[6]= (V132);
  1680.     goto T752;
  1681. T764:;
  1682.     if((V133!= VV[155])
  1683.     && (V133!= VV[156]))goto T765;
  1684.     base[6]= cdr((V132));
  1685.     goto T752;
  1686. T765:;
  1687.     if((V133!= VV[116]))goto T766;
  1688.     base[6]= make_cons(VV[99],cddddr((V132)));
  1689.     goto T752;
  1690. T766:;
  1691.     if((V133!= VV[157]))goto T767;
  1692.     base[6]= cddddr((V132));
  1693.     goto T752;
  1694. T767:;
  1695.     if(!(type_of(car((V132)))==t_symbol)){
  1696.     goto T769;}
  1697.     base[7]= car((V132));
  1698.     vs_top=(vs_base=base+7)+1;
  1699.     Lspecial_form_p();
  1700.     vs_top=sup;
  1701.     if((vs_base[0])!=Cnil){
  1702.     goto T768;}
  1703.     base[7]= car((V132));
  1704.     vs_top=(vs_base=base+7)+1;
  1705.     Lfboundp();
  1706.     vs_top=sup;
  1707.     if((vs_base[0])==Cnil){
  1708.     goto T769;}
  1709. T768:;
  1710.     base[6]= car((V132));
  1711.     goto T752;
  1712. T769:;
  1713.     base[6]= VV[100];
  1714.     goto T752;}
  1715. T762:;
  1716.     (void)(print((V132),Cnil));
  1717.     base[6]= VV[101];}
  1718. T752:;
  1719.     base[8]= (V131);
  1720.     vs_top=(vs_base=base+8)+1;
  1721.     (void) (*Lnk145)();
  1722.     vs_top=sup;
  1723.     base[7]= vs_base[0];
  1724.     vs_top=(vs_base=base+2)+6;
  1725.     Lformat();
  1726.     vs_top=sup;
  1727.     {object V134 = vs_base[0];
  1728.     bds_unwind1;
  1729.     bds_unwind1;
  1730.     VMR21(V134)}
  1731. }
  1732. /*    local entry for function PRINT-FRS    */
  1733.  
  1734. static object LI22(V136)
  1735.  
  1736. register object V136;
  1737. {     VMB22 VMS22 VMV22
  1738. TTL:;
  1739.     base[0]= symbol_value(VV[49]);
  1740.     base[1]= VV[102];
  1741.     base[2]= (V136);
  1742.     base[3]= (*(LnkLI158))((V136));
  1743.     base[5]= (V136);
  1744.     vs_top=(vs_base=base+5)+1;
  1745.     (void) (*Lnk153)();
  1746.     vs_top=sup;
  1747.     base[4]= vs_base[0];
  1748.     base[6]= (V136);
  1749.     vs_top=(vs_base=base+6)+1;
  1750.     (void) (*Lnk159)();
  1751.     vs_top=sup;
  1752.     base[5]= vs_base[0];
  1753.     base[7]= (V136);
  1754.     vs_top=(vs_base=base+7)+1;
  1755.     (void) (*Lnk149)();
  1756.     vs_top=sup;
  1757.     base[6]= vs_base[0];
  1758.     vs_top=(vs_base=base+0)+7;
  1759.     Lformat();
  1760.     vs_top=sup;
  1761.     {object V137 = vs_base[0];
  1762.     VMR22(V137)}
  1763. }
  1764. /*    local entry for function FRS-KIND    */
  1765.  
  1766. static object LI23(V139)
  1767.  
  1768. register object V139;
  1769. {     VMB23 VMS23 VMV23
  1770. TTL:;
  1771.     {register object V140;
  1772.     V140= Cnil;
  1773.     base[0]= (V139);
  1774.     vs_top=(vs_base=base+0)+1;
  1775.     (void) (*Lnk160)();
  1776.     vs_top=sup;
  1777.     V142= vs_base[0];
  1778.     {object V141= V142;
  1779.     if((V141!= VV[161]))goto T793;
  1780.     base[1]= (V139);
  1781.     vs_top=(vs_base=base+1)+1;
  1782.     (void) (*Lnk162)();
  1783.     vs_top=sup;
  1784.     base[0]= vs_base[0];
  1785.     vs_top=(vs_base=base+0)+1;
  1786.     (void) (*Lnk163)();
  1787.     vs_top=sup;
  1788.     if((vs_base[0])==Cnil){
  1789.     goto T795;}{object V143;
  1790.     base[1]= (V139);
  1791.     vs_top=(vs_base=base+1)+1;
  1792.     (void) (*Lnk162)();
  1793.     vs_top=sup;
  1794.     base[0]= vs_base[0];
  1795.     base[3]= (V139);
  1796.     vs_top=(vs_base=base+3)+1;
  1797.     (void) (*Lnk159)();
  1798.     vs_top=sup;
  1799.     V144= vs_base[0];
  1800.     base[2]= number_plus(V144,small_fixnum(2));
  1801.     vs_top=(vs_base=base+2)+1;
  1802.     (void) (*Lnk147)();
  1803.     vs_top=sup;
  1804.     base[1]= vs_base[0];
  1805.     base[2]= VV[103];
  1806.     base[3]= symbol_function(VV[164]);
  1807.     base[4]= VV[104];
  1808.     base[5]= symbol_function(VV[165]);
  1809.     vs_top=(vs_base=base+0)+6;
  1810.     Lmember();
  1811.     vs_top=sup;
  1812.     V140= vs_base[0];
  1813.     if(((V140))!=Cnil){
  1814.     goto T801;}
  1815.     V143= Cnil;
  1816.     goto T800;
  1817. T801:;
  1818.     if(!((cadar((V140)))==(VV[89]))){
  1819.     goto T815;}
  1820.     V143= list(3,VV[89],caar((V140)),VV[6]);
  1821.     goto T800;
  1822. T815:;
  1823.     base[1]= (V139);
  1824.     vs_top=(vs_base=base+1)+1;
  1825.     (void) (*Lnk162)();
  1826.     vs_top=sup;
  1827.     V148= vs_base[0];
  1828.     V149= symbol_function(VV[165]);
  1829.     V150= symbol_function(VV[164]);
  1830.     V151= (VFUN_NARGS=6,(*(LnkLI166))(V148,(V140),VV[106],V149,VV[103],V150));
  1831.     {object V146;
  1832.     object V147= /* INLINE-ARGS */V151;
  1833.     if(endp(V147)){
  1834.     V145= Cnil;
  1835.     goto T817;}
  1836.     base[0]=V146=MMcons(Cnil,Cnil);
  1837. T818:;
  1838.     (V146->c.c_car)= car((V147->c.c_car));
  1839.     if(endp(V147=MMcdr(V147))){
  1840.     V145= base[0];
  1841.     goto T817;}
  1842.     V146=MMcdr(V146)=MMcons(Cnil,Cnil);
  1843.     goto T818;}
  1844. T817:;
  1845.     V152= reverse(V145);
  1846.     V153= append(/* INLINE-ARGS */V152,VV[107]);
  1847.     V143= make_cons(VV[105],/* INLINE-ARGS */V153);
  1848. T800:;
  1849.     if(V143==Cnil)goto T799;
  1850.     {object V154 = V143;
  1851.     VMR23(V154)}
  1852. T799:;}
  1853.     base[0]= (V139);
  1854.     vs_top=(vs_base=base+0)+1;
  1855.     (void) (*Lnk162)();
  1856.     vs_top=sup;
  1857.     V155= vs_base[0];
  1858.     {object V156 = list(2,VV[108],V155);
  1859.     VMR23(V156)}
  1860. T795:;
  1861.     base[0]= (V139);
  1862.     vs_top=(vs_base=base+0)+1;
  1863.     (void) (*Lnk162)();
  1864.     vs_top=sup;
  1865.     V157= vs_base[0];
  1866.     {object V158 = list(3,VV[109],list(2,VV[110],V157),VV[6]);
  1867.     VMR23(V158)}
  1868. T793:;
  1869.     if((V141!= VV[167]))goto T828;
  1870.     {object V159 = VV[111];
  1871.     VMR23(V159)}
  1872. T828:;
  1873.     base[0]= (V139);
  1874.     vs_top=(vs_base=base+0)+1;
  1875.     (void) (*Lnk162)();
  1876.     vs_top=sup;
  1877.     V160= vs_base[0];
  1878.     {object V161 = list(2,VV[112],V160);
  1879.     VMR23(V161)}}}
  1880. }
  1881. /*    function definition for BREAK-CURRENT    */
  1882.  
  1883. static L24()
  1884. {register object *base=vs_base;
  1885.     register object *sup=base+VM24; VC24
  1886.     vs_reserve(VM24);
  1887.     check_arg(0);
  1888.     vs_top=sup;
  1889. TTL:;
  1890.     if((symbol_value(VV[37]))==Cnil){
  1891.     goto T833;}
  1892.     base[0]= symbol_value(VV[49]);
  1893.     base[1]= VV[113];
  1894.     base[3]= symbol_value(VV[40]);
  1895.     vs_top=(vs_base=base+3)+1;
  1896.     (void) (*Lnk143)();
  1897.     vs_top=sup;
  1898.     base[2]= vs_base[0];
  1899.     vs_top=(vs_base=base+0)+3;
  1900.     Lformat();
  1901.     vs_top=sup;
  1902.     goto T831;
  1903. T833:;
  1904.     base[0]= symbol_value(VV[49]);
  1905.     base[1]= VV[114];
  1906.     vs_top=(vs_base=base+0)+2;
  1907.     Lformat();
  1908.     vs_top=sup;
  1909. T831:;
  1910.     vs_base=vs_top=base+0;
  1911.     vs_base[0]=Cnil;
  1912.     return;
  1913. }
  1914. /*    local entry for function IHS-VISIBLE    */
  1915.  
  1916. static object LI25(V163)
  1917.  
  1918. object V163;
  1919. {     VMB25 VMS25 VMV25
  1920. TTL:;
  1921.     {object V164;
  1922.     base[1]= (V163);
  1923.     vs_top=(vs_base=base+1)+1;
  1924.     (void) (*Lnk143)();
  1925.     vs_top=sup;
  1926.     V164= vs_base[0];
  1927.     if((V164)==Cnil){
  1928.     {object V165 = Cnil;
  1929.     VMR25(V165)}}
  1930.     {register object x= (V164),V167= symbol_value(VV[115]);
  1931.     while(!endp(V167))
  1932.     if(eql(x,V167->c.c_car)){
  1933.     V166= V167;
  1934.     goto T843;
  1935.     }else V167=V167->c.c_cdr;
  1936.     V166= Cnil;}
  1937. T843:;
  1938.     {object V168 = ((V166)==Cnil?Ct:Cnil);
  1939.     VMR25(V168)}}
  1940. }
  1941. /*    function definition for IHS-FNAME    */
  1942.  
  1943. static L26()
  1944. {register object *base=vs_base;
  1945.     register object *sup=base+VM26; VC26
  1946.     vs_reserve(VM26);
  1947.     {object V169;
  1948.     check_arg(1);
  1949.     V169=(base[0]);
  1950.     vs_top=sup;
  1951. TTL:;
  1952.     {register object V170;
  1953.     base[1]= (V169);
  1954.     vs_top=(vs_base=base+1)+1;
  1955.     (void) (*Lnk154)();
  1956.     vs_top=sup;
  1957.     V170= vs_base[0];
  1958.     if(!(type_of((V170))==t_symbol)){
  1959.     goto T847;}
  1960.     base[1]= (V170);
  1961.     vs_top=(vs_base=base+1)+1;
  1962.     return;
  1963. T847:;
  1964.     if(!(type_of((V170))==t_cons)){
  1965.     goto T850;}
  1966.     {object V171= car((V170));
  1967.     if((V171!= VV[99]))goto T852;
  1968.     base[1]= VV[99];
  1969.     vs_top=(vs_base=base+1)+1;
  1970.     return;
  1971. T852:;
  1972.     if((V171!= VV[155])
  1973.     && (V171!= VV[156]))goto T853;
  1974.     base[1]= cadr((V170));
  1975.     vs_top=(vs_base=base+1)+1;
  1976.     return;
  1977. T853:;
  1978.     if((V171!= VV[157]))goto T854;
  1979.     base[1]= car(cddddr((V170)));
  1980.     vs_top=(vs_base=base+1)+1;
  1981.     return;
  1982. T854:;
  1983.     if((V171!= VV[116]))goto T855;
  1984.     base[1]= VV[116];
  1985.     vs_top=(vs_base=base+1)+1;
  1986.     return;
  1987. T855:;
  1988.     if(!(type_of(car((V170)))==t_symbol)){
  1989.     goto T857;}
  1990.     base[1]= car((V170));
  1991.     vs_top=(vs_base=base+1)+1;
  1992.     Lspecial_form_p();
  1993.     vs_top=sup;
  1994.     if((vs_base[0])!=Cnil){
  1995.     goto T856;}
  1996.     base[1]= car((V170));
  1997.     vs_top=(vs_base=base+1)+1;
  1998.     Lfboundp();
  1999.     vs_top=sup;
  2000.     if((vs_base[0])==Cnil){
  2001.     goto T857;}
  2002. T856:;
  2003.     base[1]= car((V170));
  2004.     vs_top=(vs_base=base+1)+1;
  2005.     return;
  2006. T857:;
  2007.     base[1]= VV[101];
  2008.     vs_top=(vs_base=base+1)+1;
  2009.     return;}
  2010. T850:;
  2011.     base[1]= (V170);
  2012.     vs_top=(vs_base=base+1)+1;
  2013.     Lcompiled_function_p();
  2014.     vs_top=sup;
  2015.     if((vs_base[0])==Cnil){
  2016.     goto T866;}
  2017.     base[1]= (V170);
  2018.     vs_top=(vs_base=base+1)+1;
  2019.     (void) (*Lnk168)();
  2020.     return;
  2021. T866:;
  2022.     base[1]= VV[101];
  2023.     vs_top=(vs_base=base+1)+1;
  2024.     return;}
  2025.     }
  2026. }
  2027. /*    function definition for IHS-NOT-INTERPRETED-ENV    */
  2028.  
  2029. static L27()
  2030. {register object *base=vs_base;
  2031.     register object *sup=base+VM27; VC27
  2032.     vs_reserve(VM27);
  2033.     {object V172;
  2034.     check_arg(1);
  2035.     V172=(base[0]);
  2036.     vs_top=sup;
  2037. TTL:;
  2038.     {object V173;
  2039.     base[1]= (V172);
  2040.     vs_top=(vs_base=base+1)+1;
  2041.     (void) (*Lnk154)();
  2042.     vs_top=sup;
  2043.     V173= vs_base[0];
  2044.     if(!(type_of((V173))==t_cons)){
  2045.     goto T873;}
  2046.     if(!(number_compare((V172),small_fixnum(3))>0)){
  2047.     goto T873;}
  2048.     base[1]= Cnil;
  2049.     vs_top=(vs_base=base+1)+1;
  2050.     return;
  2051. T873:;
  2052.     base[1]= Ct;
  2053.     vs_top=(vs_base=base+1)+1;
  2054.     return;}
  2055.     }
  2056. }
  2057. /*    local entry for function SET-ENV    */
  2058.  
  2059. static object LI28()
  2060.  
  2061. {     VMB28 VMS28 VMV28
  2062. TTL:;
  2063.     base[0]= symbol_value(VV[40]);
  2064.     vs_top=(vs_base=base+0)+1;
  2065.     (void) (*Lnk169)();
  2066.     vs_top=sup;
  2067.     if((vs_base[0])==Cnil){
  2068.     goto T879;}
  2069.     setq(VV[43],Cnil);
  2070.     goto T877;
  2071. T879:;
  2072.     {object V174;
  2073.     base[0]= symbol_value(VV[40]);
  2074.     vs_top=(vs_base=base+0)+1;
  2075.     (void) (*Lnk145)();
  2076.     vs_top=sup;
  2077.     V174= vs_base[0];
  2078.     base[0]= (V174);
  2079.     vs_top=(vs_base=base+0)+1;
  2080.     (void) (*Lnk147)();
  2081.     vs_top=sup;
  2082.     V175= vs_base[0];
  2083.     base[0]= one_plus((V174));
  2084.     vs_top=(vs_base=base+0)+1;
  2085.     (void) (*Lnk147)();
  2086.     vs_top=sup;
  2087.     V176= vs_base[0];
  2088.     base[0]= number_plus((V174),small_fixnum(2));
  2089.     vs_top=(vs_base=base+0)+1;
  2090.     (void) (*Lnk147)();
  2091.     vs_top=sup;
  2092.     V177= vs_base[0];
  2093.     setq(VV[43],list(3,V175,V176,V177));}
  2094. T877:;
  2095.     {object V178 = symbol_value(VV[43]);
  2096.     VMR28(V178)}
  2097. }
  2098. /*    local entry for function LIST-DELQ    */
  2099.  
  2100. static object LI29(V181,V182)
  2101.  
  2102. object V181;register object V182;
  2103. {     VMB29 VMS29 VMV29
  2104. TTL:;
  2105.     if(((V182))!=Cnil){
  2106.     goto T891;}
  2107.     {object V183 = Cnil;
  2108.     VMR29(V183)}
  2109. T891:;
  2110.     if(!(((V181))==(car((V182))))){
  2111.     goto T894;}
  2112.     {object V184 = cdr((V182));
  2113.     VMR29(V184)}
  2114. T894:;
  2115.     V185= (*(LnkLI170))((V181),cdr((V182)));
  2116.     if(type_of((V182))!=t_cons)FEwrong_type_argument(Scons,(V182));
  2117.     ((V182))->c.c_cdr = /* INLINE-ARGS */V185;
  2118.     {object V186 = (V182);
  2119.     VMR29(V186)}
  2120. }
  2121. /*    local entry for function SUPER-GO    */
  2122.  
  2123. static object LI30(V189,V190)
  2124.  
  2125. register object V189;register object V190;
  2126. {     VMB30 VMS30 VMV30
  2127. TTL:;
  2128.     {object V191;
  2129.     V191= Cnil;
  2130.     if(!(number_compare((V189),symbol_value(VV[41]))>=0)){
  2131.     goto T897;}
  2132.     if(!(number_compare((V189),symbol_value(VV[42]))<=0)){
  2133.     goto T897;}
  2134.     base[1]= (V189);
  2135.     vs_top=(vs_base=base+1)+1;
  2136.     (void) (*Lnk162)();
  2137.     vs_top=sup;
  2138.     base[0]= vs_base[0];
  2139.     vs_top=(vs_base=base+0)+1;
  2140.     (void) (*Lnk163)();
  2141.     vs_top=sup;
  2142.     if((vs_base[0])==Cnil){
  2143.     goto T897;}
  2144.     base[1]= (V189);
  2145.     vs_top=(vs_base=base+1)+1;
  2146.     (void) (*Lnk162)();
  2147.     vs_top=sup;
  2148.     base[0]= vs_base[0];
  2149.     base[3]= (V189);
  2150.     vs_top=(vs_base=base+3)+1;
  2151.     (void) (*Lnk159)();
  2152.     vs_top=sup;
  2153.     V192= vs_base[0];
  2154.     base[2]= number_plus(V192,small_fixnum(2));
  2155.     vs_top=(vs_base=base+2)+1;
  2156.     (void) (*Lnk147)();
  2157.     vs_top=sup;
  2158.     base[1]= vs_base[0];
  2159.     base[2]= VV[103];
  2160.     base[3]= symbol_function(VV[164]);
  2161.     base[4]= VV[104];
  2162.     base[5]= symbol_function(VV[165]);
  2163.     vs_top=(vs_base=base+0)+6;
  2164.     Lmember();
  2165.     vs_top=sup;
  2166.     V191= vs_base[0];
  2167.     if(((V191))==Cnil){
  2168.     goto T907;}
  2169.     if(!((cadar((V191)))==(VV[91]))){
  2170.     goto T897;}
  2171.     base[1]= (V189);
  2172.     vs_top=(vs_base=base+1)+1;
  2173.     (void) (*Lnk162)();
  2174.     vs_top=sup;
  2175.     V197= vs_base[0];
  2176.     V198= symbol_function(VV[165]);
  2177.     V199= symbol_function(VV[164]);
  2178.     V200= (VFUN_NARGS=6,(*(LnkLI166))(V197,(V191),VV[106],V198,VV[103],V199));
  2179.     {object V195;
  2180.     object V196= /* INLINE-ARGS */V200;
  2181.     if(endp(V196)){
  2182.     V194= Cnil;
  2183.     goto T924;}
  2184.     base[0]=V195=MMcons(Cnil,Cnil);
  2185. T925:;
  2186.     (V195->c.c_car)= car((V196->c.c_car));
  2187.     if(endp(V196=MMcdr(V196))){
  2188.     V194= base[0];
  2189.     goto T924;}
  2190.     V195=MMcdr(V195)=MMcons(Cnil,Cnil);
  2191.     goto T925;}
  2192. T924:;
  2193.     {register object x= (V190),V193= V194;
  2194.     while(!endp(V193))
  2195.     if(eql(x,V193->c.c_car)){
  2196.     goto T923;
  2197.     }else V193=V193->c.c_cdr;
  2198.     goto T897;}
  2199. T923:;
  2200.     base[1]= (V189);
  2201.     vs_top=(vs_base=base+1)+1;
  2202.     (void) (*Lnk162)();
  2203.     vs_top=sup;
  2204.     base[0]= vs_base[0];
  2205.     base[1]= (V190);
  2206.     base[2]= Ct;
  2207.     vs_top=(vs_base=base+0)+3;
  2208.     (void) (*Lnk171)();
  2209.     vs_top=sup;
  2210.     goto T897;
  2211. T907:;
  2212.     base[1]= (V189);
  2213.     vs_top=(vs_base=base+1)+1;
  2214.     (void) (*Lnk162)();
  2215.     vs_top=sup;
  2216.     base[0]= vs_base[0];
  2217.     base[1]= (V190);
  2218.     base[2]= Cnil;
  2219.     vs_top=(vs_base=base+0)+3;
  2220.     (void) (*Lnk171)();
  2221.     vs_top=sup;
  2222. T897:;
  2223.     base[0]= symbol_value(VV[49]);
  2224.     base[1]= VV[117];
  2225.     base[2]= (V189);
  2226.     base[3]= (V190);
  2227.     vs_top=(vs_base=base+0)+4;
  2228.     Lformat();
  2229.     vs_top=sup;
  2230.     {object V201 = vs_base[0];
  2231.     VMR30(V201)}}
  2232. }
  2233. /*    local entry for function BREAK-BACKWARD-SEARCH-STACK    */
  2234.  
  2235. static object LI31(V203)
  2236.  
  2237. object V203;
  2238. {     VMB31 VMS31 VMV31
  2239. TTL:;
  2240.     {register object V204;
  2241.     V204= Cnil;
  2242.     V204= coerce_to_string((V203));
  2243.     {register object V205;
  2244.     register object V206;
  2245.     V205= one_minus(symbol_value(VV[40]));
  2246.     base[2]= (V205);
  2247.     vs_top=(vs_base=base+2)+1;
  2248.     (void) (*Lnk143)();
  2249.     vs_top=sup;
  2250.     V206= vs_base[0];
  2251. T950:;
  2252.     if(!(number_compare((V205),symbol_value(VV[38]))<0)){
  2253.     goto T951;}
  2254.     base[2]= symbol_value(VV[49]);
  2255.     base[3]= VV[118];
  2256.     base[4]= (V204);
  2257.     vs_top=(vs_base=base+2)+3;
  2258.     Lformat();
  2259.     vs_top=sup;
  2260.     {object V207 = vs_base[0];
  2261.     VMR31(V207)}
  2262. T951:;
  2263.     if(((*(LnkLI142))((V205)))==Cnil){
  2264.     goto T958;}
  2265.     V208= symbol_name((V206));
  2266.     V209= symbol_function(VV[173]);
  2267.     if(((VFUN_NARGS=4,(*(LnkLI172))((V204),/* INLINE-ARGS */V208,VV[104],V209)))==Cnil){
  2268.     goto T958;}
  2269.     base[2]= (V205);
  2270.     vs_top=(vs_base=base+2)+1;
  2271.     (void) (*Lnk174)();
  2272.     vs_top=sup;
  2273.     {object V210 = Cnil;
  2274.     VMR31(V210)}
  2275. T958:;
  2276.     V205= one_minus((V205));
  2277.     base[2]= (V205);
  2278.     vs_top=(vs_base=base+2)+1;
  2279.     (void) (*Lnk143)();
  2280.     vs_top=sup;
  2281.     V206= vs_base[0];
  2282.     goto T950;}}
  2283. }
  2284. /*    local entry for function BREAK-FORWARD-SEARCH-STACK    */
  2285.  
  2286. static object LI32(V212)
  2287.  
  2288. object V212;
  2289. {     VMB32 VMS32 VMV32
  2290. TTL:;
  2291.     {register object V213;
  2292.     V213= Cnil;
  2293.     V213= coerce_to_string((V212));
  2294.     {register object V214;
  2295.     register object V215;
  2296.     V214= one_plus(symbol_value(VV[40]));
  2297.     base[2]= (V214);
  2298.     vs_top=(vs_base=base+2)+1;
  2299.     (void) (*Lnk143)();
  2300.     vs_top=sup;
  2301.     V215= vs_base[0];
  2302. T979:;
  2303.     if(!(number_compare((V214),symbol_value(VV[39]))>0)){
  2304.     goto T980;}
  2305.     base[2]= symbol_value(VV[49]);
  2306.     base[3]= VV[119];
  2307.     base[4]= (V213);
  2308.     vs_top=(vs_base=base+2)+3;
  2309.     Lformat();
  2310.     vs_top=sup;
  2311.     {object V216 = vs_base[0];
  2312.     VMR32(V216)}
  2313. T980:;
  2314.     if(((*(LnkLI142))((V214)))==Cnil){
  2315.     goto T987;}
  2316.     V217= symbol_name((V215));
  2317.     V218= symbol_function(VV[173]);
  2318.     if(((VFUN_NARGS=4,(*(LnkLI172))((V213),/* INLINE-ARGS */V217,VV[104],V218)))==Cnil){
  2319.     goto T987;}
  2320.     base[2]= (V214);
  2321.     vs_top=(vs_base=base+2)+1;
  2322.     (void) (*Lnk174)();
  2323.     vs_top=sup;
  2324.     {object V219 = Cnil;
  2325.     VMR32(V219)}
  2326. T987:;
  2327.     V214= one_plus((V214));
  2328.     base[2]= (V214);
  2329.     vs_top=(vs_base=base+2)+1;
  2330.     (void) (*Lnk143)();
  2331.     vs_top=sup;
  2332.     V215= vs_base[0];
  2333.     goto T979;}}
  2334. }
  2335. /*    local entry for function BREAK-HELP    */
  2336.  
  2337. static object LI33()
  2338.  
  2339. {     VMB33 VMS33 VMV33
  2340. TTL:;
  2341.     base[0]= symbol_value(VV[49]);
  2342.     base[1]= VV[120];
  2343.     vs_top=(vs_base=base+0)+2;
  2344.     Lformat();
  2345.     vs_top=sup;
  2346.     vs_base=vs_top=base+0;
  2347.     vs_base[0]=Cnil;
  2348.     vs_top=sup;
  2349.     {object V220 = vs_base[0];
  2350.     VMR33(V220)}
  2351. }
  2352. static LnkT174(){ call_or_link(VV[174],&Lnk174);} /* BREAK-GO */
  2353. static object  LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[172],&LnkLI172,ap);} /* SEARCH */
  2354. static LnkT171(){ call_or_link(VV[171],&Lnk171);} /* INTERNAL-SUPER-GO */
  2355. static object  LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],&LnkLI170,2,ap);} /* LIST-DELQ */
  2356. static LnkT169(){ call_or_link(VV[169],&Lnk169);} /* IHS-NOT-INTERPRETED-ENV */
  2357. static LnkT168(){ call_or_link(VV[168],&Lnk168);} /* COMPILED-FUNCTION-NAME */
  2358. static object  LnkTLI166(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[166],&LnkLI166,ap);} /* REMOVE */
  2359. static LnkT163(){ call_or_link(VV[163],&Lnk163);} /* SPICEP */
  2360. static LnkT162(){ call_or_link(VV[162],&Lnk162);} /* FRS-TAG */
  2361. static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* FRS-CLASS */
  2362. static LnkT159(){ call_or_link(VV[159],&Lnk159);} /* FRS-VS */
  2363. static object  LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],&LnkLI158,1,ap);} /* FRS-KIND */
  2364. static LnkT154(){ call_or_link(VV[154],&Lnk154);} /* IHS-FUN */
  2365. static LnkT153(){ call_or_link(VV[153],&Lnk153);} /* FRS-IHS */
  2366. static LnkT152(){ call_or_link(VV[152],&Lnk152);} /* BDS-VAL */
  2367. static object  LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],&LnkLI151,1,ap);} /* PRINT-FRS */
  2368. static LnkT150(){ call_or_link(VV[150],&Lnk150);} /* BDS-VAR */
  2369. static LnkT149(){ call_or_link(VV[149],&Lnk149);} /* FRS-BDS */
  2370. static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* BREAK-VS */
  2371. static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* VS */
  2372. static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],&LnkLI146,1,ap);} /* PRINT-IHS */
  2373. static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* IHS-VS */
  2374. static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* BREAK-PREVIOUS */
  2375. static LnkT143(){ call_or_link(VV[143],&Lnk143);} /* IHS-FNAME */
  2376. static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,1,ap);} /* IHS-VISIBLE */
  2377. static object  LnkTLI141(){return call_proc0(VV[141],&LnkLI141);} /* SET-ENV */
  2378. static LnkT140(){ call_or_link(VV[140],&Lnk140);} /* BREAK-LEVEL */
  2379. static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* BREAK */
  2380. static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* DBL-READ */
  2381. static LnkT135(){ call_or_link(VV[135],&Lnk135);} /* SET-BACK */
  2382. static object  LnkTLI134(){return call_proc0(VV[134],&LnkLI134);} /* SET-CURRENT */
  2383. static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* CATCH-FATAL */
  2384. static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* BREAK-QUIT */
  2385. static LnkT131(){ call_or_link(VV[131],&Lnk131);} /* SIMPLE-BACKTRACE */
  2386. static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* FRS-TOP */
  2387. static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* SCH-FRS-BASE */
  2388. static LnkT128(){ call_or_link(VV[128],&Lnk128);} /* IHS-TOP */
  2389. static LnkT127(){ call_or_link(VV[127],&Lnk127);} /* MAKE-STRING-INPUT-STREAM */
  2390. static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* BREAK-CURRENT */
  2391. static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* LOAD */
  2392. static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* STRING-CONCATENATE */
  2393.